﻿Public Class Role
  Public Sub New(ByVal Name As String, ByVal Users As String)
    Me.Name = Name

    If Not Users Is Nothing AndAlso Users <> "" Then
      Me.Users = (From u In Users.Split(","c) Select u.Trim()).ToList
    End If
  End Sub

  Private _lUsers As New List(Of String)
  Public Property Users() As List(Of String)
    Get
      Return _lUsers
    End Get
    Set(ByVal value As List(Of String))
      _lUsers = value
    End Set
  End Property

  Private _strName As String
  Public Property Name() As String
    Get
      Return _strName
    End Get
    Set(ByVal value As String)
      _strName = value
    End Set
  End Property
End Class
